home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wcl-21.lha / wcl-2.1 / src / cl / pprint / package-setup.lisp < prev    next >
Encoding:
Text File  |  1992-09-11  |  2.5 KB  |  57 lines
  1. ;;; Copyright 1989,1990 by the Massachusetts Institute of Technology,
  2. ;;; Cambridge, Massachusetts.
  3.  
  4. ;;; Permission to use, copy, modify, and distribute this software and its
  5. ;;; documentation for any purpose and without fee is hereby granted,
  6. ;;; provided that this copyright and permission notice appear in all
  7. ;;; copies and supporting documentation, and that the name of M.I.T. not
  8. ;;; be used in advertising or publicity pertaining to distribution of the
  9. ;;; software without specific, written prior permission. M.I.T. makes no
  10. ;;; representations about the suitability of this software for any
  11. ;;; purpose.  It is provided "as is" without express or implied warranty.
  12. ;;;
  13. ;;;    M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
  14. ;;;    ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
  15. ;;;    M.I.T. BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
  16. ;;;    ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
  17. ;;;    WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
  18. ;;;    ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  19. ;;;    SOFTWARE.
  20.  
  21.  
  22. ;;; This file "XP.LISP" contains the 8/31/90 implemetation of an
  23. ;;; efficient pretty printer for Common Lisp.  The functions in this file
  24. ;;; are documented in Chapter 27 of
  25. ;;;   Common Lisp: the Language Second Edition,
  26. ;;;   Guy L. Steele Jr, Digital press, 1990,
  27. ;;; and in even greater detail in
  28. ;;;   MIT/AIM-1102a, July 1989.  
  29. ;;; This report can be obtained by writing to
  30. ;;;
  31. ;;;             Publications
  32. ;;;            MIT AI Laboratory
  33. ;;;            545 Tech. Sq.
  34. ;;;            Cambridge MA 02139
  35. ;;;
  36. ;;; The companion file "XPTEST.LISP" contains a set of 600+ tests.  You should
  37. ;;; run these tests after the first time you compile this file on a new system.
  38. ;;;
  39. ;;; The companion file "XPDOC.TXT" contains brief documentation.
  40.  
  41. (in-package "XP" :use '("LISP"))
  42.  
  43. (shadow '(write print prin1 princ pprint format write-to-string princ-to-string
  44.       prin1-to-string write-line write-string write-char terpri fresh-line
  45.       defstruct finish-output force-output clear-output))
  46.  
  47. (export '(formatter copy-pprint-dispatch pprint-dispatch
  48.       set-pprint-dispatch pprint-fill pprint-linear pprint-tabular
  49.       pprint-logical-block pprint-pop pprint-exit-if-list-exhausted
  50.       pprint-newline pprint-indent pprint-tab 
  51.       *print-pprint-dispatch* *print-right-margin* *default-right-margin*
  52.       *print-miser-width* *print-lines*
  53.       *last-abbreviated-printing*
  54.       *print-shared*))
  55.       
  56.  
  57.